Instrucciones

  1. Esta tarea debe ser entregada en grupos de máximo 3 personas.
  2. Se debe enviar una carpeta comprimida que contenga: un archivo .Rproj (proyecto en R), un script y un breve informe en R Markdown con sus resultados, incluyendo tablas, gráficos, etc., según corresponda. El formato del infome puede ser word o pdf y se debe el archivo Rmd.
  3. El nombre del archivo comprimido debe ser “Tarea 3-R-Uchile Apellido 1-Apellido 2-Apellido 3”.
  4. El asunto del email con su tarea debe ser “Tarea 3-R-Uchile Apellido 1-Apellido 2-Apellido 3”.
  5. La fecha de entrega es el Sábado 13 de Octubre del 2018 hasta las 23:59 hrs al correo del curso: r2018uchile@gmail.com.

“The goal is to turn data into information, and information into insight”

Carly Fiorina, CEO de HP desde 1999 hasta 2005


Pregunta 1

Pregunta 1.1

Usted en la Tarea 1 (pregunta 1.5) tuvo que identificar el porcentaje de películas estrenadas por década. A partir del data frame obtenido, construya un pie chart usando la librería plotly. (20 puntos)

Pregunta 1.2

Considerando la Tarea 1 (pregunta 1.6), indentifique el presupuesto promedio (budget) por estado y presentelo esta vez utilizando el mapa de los Estados Unidos. (20 puntos)


Pregunta 2

A partir de las variables seleccionadas del World Development Indicators de su Tarea 2, represente en un mapa los valores que asume cada variable en 1990 y 2015.


Mapa Producto Interno Bruto

Mapa Producto Interno Bruto


Mapa Cuenta Corriente

Mapa Cuenta Corriente


Pregunta 3

Visite el sitio web http://datos.gob.cl/ y descargue una base de datos de su preferencia1, justificando su elección. Luego, represente los datos seleccionados en un mapa de una o varias de las comunas de la región Metropolitana. Los mapas vectoriales pueden ser descargados de https://www.bcn.cl.

data <- data %>% 
        rename(year = `AÑO`) %>% 
        na.omit()

init <- tibble(
          year = 2011,
          inversion = 0, long = 0, lat = 0
        )

fin <- tibble(
          year = 2016,
          inversion = 0, long = 0, lat = 0
        )

map_animate <- ggplot() + 
               geom_polygon(data = comunas, aes(x = long, y = lat, group = group), 
                   fill = "white", color = "black", size = .5, show.legend = FALSE)  + 
               theme_map() + 
               xlim(min(comunas$long),max(comunas$long)) + ylim(min(comunas$lat),
                    max(comunas$lat)) +
               geom_polygon(data = data, 
                            aes(x = long, y = lat, group = group, fill = inversion/1000000,
                                frame = year,
                                cumulative = TRUE), 
                            alpha = 0.5) + 
               geom_polygon(data = init, 
                            aes(x = long, y = lat, fill = inversion/1000000,
                                frame = year,
                                cumulative = TRUE), 
                            alpha = 0) +
               geom_polygon(data = fin, 
                            aes(x = long, y = lat, fill = inversion/1000000,
                                frame = year,
                                cumulative = TRUE), 
                            alpha = 0) + 
               labs(title = "Gasto MOP, ") +
               labs(fill = 'Gasto (MIllones)') + 
               labs(caption = 
                    "Mapa por Gabriel Cabrera, @Gabo_Cg\nFuente: Datos Gobierno de Chile") +
               theme(plot.title = element_text(hjust = 0.5, vjust = 0.05, size=25)) +
               theme(plot.caption = element_text(hjust = 0, color="gray40", size=15)) +
               theme(legend.position = c(.5, -.025), 
               legend.direction = "horizontal", 
               legend.title.align = 0,
               legend.key.size = unit(1.3, "cm"),
               legend.title=element_text(size=17), 
               legend.text=element_text(size=13)) + 
               geom_text(data = com_name, aes(label =  as.character(COMUNA), x = long, 
                                               y = lat), size = 3.5) 

gganimate(map_animate, interval = 0.2, title_frame =T, ani.width=1600, ani.height=1020, 
          dpi=850, "mop_2011_2016.gif")


Gasto Ministerio de obras públicas: Periodo 2011 - 2016

Gasto Ministerio de obras públicas: Periodo 2011 - 2016



  1. Debe contener las comunas de la región Metropolitana.


Disclaimer : La información contenida en esta página está bajo una Licencia Creative Commons Atribución-NoComercial-SinDerivadas 4.0 Internacional y fue construida bajo mi rol como ayudante (Teacher Assistant) de la Catedra Topicos en economía y negocios utilizando R ( R for economy and business ).
Licencia Creative Commons